REQUIRE "FILNAM.REL[VIS,HPM]" LIBRARY; EXTERNAL PROCEDURE DEFFIL(STRING DVD,FN1D,FN2D,PRJD,PRGD); EXTERNAL PROCEDURE FILDEF(REFERENCE STRING DVD,FN1D,FN2D,PRJD,PRGD); EXTERNAL STRING PROCEDURE DEVPRS; EXTERNAL STRING PROCEDURE FILPRS; EXTERNAL PROCEDURE PRSFIL(STRING FILSPEC); EXTERNAL PROCEDURE INSWAP(STRING FILE); EXTERNAL INTEGER PROCEDURE EXSWAP(STRING FILE);